;Exam2013H25HPrg3 ώԁ@𐔒lɕϊ.txt
;-----------------------
MAIN START
	LAD GR1,RUNNER1
	LAD GR2,RUNNER2
	LAD GR3,RUNNER3
	LAD GR4,RUNNER4
	ST GR1,ADR1
	ST GR2,ADR2
	ST GR3,ADR3
	ST GR4,ADR4
	LAD GR1,TBL
	CALL AVERAGE
	RET
RUNNER1 DC '2238'
RUNNER2 DC '2310'
RUNNER3 DC '2458'
RUNNER4 DC '2720'
;QQRWbAQRPObAEEËӖłB
TBL DS 0 ;Ĩ^C̃AhXe[u
ADR1 DS 1
ADR2 DS 1
ADR3 DS 1
ADR4 DS 1
	END
;------------------
AVERAGE START
	RPUSH
	LD GR2,=4;
	LD GR3,GR1
	LD GR4,=0
LOOP5 LD GR1,0,GR3  ;Ĩ^C̐擪AhX
	CALL TOSEC;
	ADDA GR4,GR0   ;eĨ^C̏vlibj@@A
	LAD GR3,1,GR3
	SUBA GR2,=1    ;JE^PZ
	JNZ LOOP5      ;[őS̎ԍvƏI
	SRL GR4,2 ;SŊ蕽ς߂FQEVtg
	LD GR0,GR4
	LAD GR1,RESULT
	CALL TOTIME
	OUT RESULT,LEN4
	RPOP
	RET
LEN4 DC 4
RESULT DS 4
	END
;-------------------------------------
;Ⴆ΂PQRWbQORWbɕϊB
TOTIME START
	RPUSH
	LD GR2,=3       ;[v
	LAD GR3,VALUE2
LOOP3 LD GR4,0,GR3  ;fqS||l
	LD GR5,=0
LOOP4 CPA GR0,GR4   ;fqOfqS
	JMI NEXT
	ADDA GR5,=1
	SUBA GR0,GR4
	JUMP LOOP4
NEXT OR GR5,='0'    ;Zʂ̏𐔒l琔ɕϊ@
	;R[h̋K𗘗pĂBQƁFR[h\
	ST GR5,0,GR1    ;@J
	LAD GR3,1,GR3
	LAD GR1,1,GR1
	SUBA GR2,=1
	JNZ LOOP3
	OR GR0,='0'    ; GR0̒Ɋ؂ꂸɎcl
	;l琔ɕϊ@QƁFR[h\
	ST GR0,0,GR1   ;@@@@A
	RPOP
	RET
VALUE2 DC 600,60,10
	END
;--------------------------------
;Ⴆ΂QORWbPQRWbɕϊB
TOSEC START
	RPUSH
	LD GR5,=0
	LD GR2,=4      ;[v
	LAD GR3,VALUE1
LOOP1 LD GR0,0,GR1  ;fqO|||Ԃ̈ꌅ
	AND GR0,=#000F  ;lo
	ADDA GR0,GR5
	SUBA GR2,=1
	JZE FIN
	LD GR4,0,GR3  ;fqS||||l
	LD GR5,=0
LOOP2 SRL GR4,1   ;ȉłfqOwfqSs
	JOV INCR
	JNZ CONT   ;[ȂΎ̍ss@@C
	LAD GR3,1,GR3
	LAD GR1,1,GR1
	JUMP LOOP1
INCR ADDA GR5,GR0
CONT SLL GR0,1
	JUMP LOOP2
FIN RPOP
	RET
VALUE1 DC 10,6,10
	END
;-------------------------
